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EDTSUGBUFFER = get a buffer pointer these -1984 :00: VAX-11 Bliss-32 V4.0-74 Page 1) 
° 4 1a-Sep-19 4 95:90:48 STEKSVMEHASTER-CEDT SKCTUGBUFFER.BLIs+” (1) 
| : RS ULE Ep rSueGurrERN( 2 ee ers ' Get a buff int 
' Get a er pointer 
i we = *v04-000' Fite: UGBUFFER.BLI Edit: JBS1005 
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BEGIN 
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Q ie 
008 !® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

10 ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
V :: ALL RIGHTS RESERVED. 
18 !® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
14 '® ONLY IN ACCORDANCE WITH E R OF SUCH LICENSE AND WITH THE 
15 t# INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
18 :* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE 9 ANY 
1 '® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOF.WARE IS HEREBY 
M 7” TRANSFERRED. 
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MODIFIED BY: 


1-001 = Original. DuS seinen i This module was created by 
SGET 8 FPTR arom module UTIL. 


1 
1 
1 
1 
} § 
1 
1 00 
1 00 
BB 
60 0 ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
0021 '* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
4 ; :* CORPORATION. 
'e 
3 4 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
06 5 i. SOFTWARE ON EQUIPMENT WHICH IS NOi SUPPLIED BY DIGITAL. 
Bed 
8 
0029 
0030 
0031 ++ 
boRs FACILITY: EDT == The DEC Standard Editor 
00 ABSTRACT: 
5 0035 
4 6 Get a buffer pointer. Create a ouffer if necessary. 
: 003 ENVIRONMENT: Runs at any access mode - AST reentrant 
re ane AUTHOR: Bob Kushlis, CREATION DATE: February 7, 1978 
4 
rk 
44 
45 


extracting routine EDT 
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Regularized headers. 
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Fix module name. JBS {fomgent 

Implement virtual memory deallocation TMV 6-Aug-81 

When a buffer is first allocated we are positioned at 
its front. JBS 08-Apr-1982 


ek tt at at a a nt a a ss a as ot a = 2 ss a ss 1 ss Ss ss 
. 


Soe eerrrre 
MO OOBWNO UVF wWn 0 0@n 


| 
J 
; 
' 
| 
| 

'@ 

VOR RRR REAR AAA AERA AAA AA AEA AAA AEA EE EEE ER Tee 

' 
} 
| 
| 
| 
' 
| 
i 


-BLI;1 


VAX-11 Bliss-32 ye s00res 
DISKSVMSMASTER: CEDT.SRCJUGBUFFER 


A 
I 


71986 93:95:45 


ep 
p- 


1bese 
14-Se 


get a buffer pointer 


clerations 


TSUGBUFFER - 


*. 
Lal 
*e 
4 : 
oe - @ 
- o ws ” c¢ 
= = io bdo a wee 
c mw < « _ ve 
o rs 4 _ a ee z 3s 
- 2 - a w 2) w oO 
re ws ee “ oT TT at a . 
eo vv wd ” Vv oOo ws 
= z =<: 2@ ws « 2 ou © 
cr) vo = 8 ad “ w w £ 
~~ ww - on) - wrew Ow & wo 
Vv a ay ae a Wn < 
eo uw w cc) w = — ¢ 
a oOo - x A w - o a $s = 
- & a ” w _ 

w w ar > [vey oO - “” « 
= ad = «oa =! « < < w 
_ | — aw vw — ve > - 
a — ie | z > = eo »< 
Belg B Finney ¥9 ” 
ed Pa “ meme « ee ee 
LLL LL LLL LLL LL LLL LLL 


——_—__-_——- a 


kK 1 | 
EDT FFER ED UFFER = get a buffer pointer 16-Sep-1984 02:00: VAX-11 Bliss-32 V4.0-74 Page 3. EDT! 
VOe=800- ED $ T_BUFPTR® - get a Sutter pointer 19-308- 1382 95:90:49 DTEKSVMGHASTERSCEDT SRC SuGBUFFER.BLI<%” (3) | v04 


ZSBTTL ‘EDTSSGET_BUFPTR = get a buffer pointer’ 


ee EDTSSGET_BUFPTR ( Get a buffer pointer 


Pointer to buffer name 


ye =a 
Wr—OOOe~n ewe 


IMPLICIT INPUTS: 
EDTSS$A_BUF _LST 

IMPLICIT OUTPUTS: 
EDT$SA_BUF _LST 


LEN, Length of that name : 

BUF ADDR, Place to store buffer address ; 

66 ~~ 1 = new buffer created : 
z : 

5 ; 
re¢] + ; 
B98 FUNCTIONAL DESCRIPTION: : 
Be 5 This routine searches for a buffer with a specified name. If the buffer 3 
0671 found, then a buffer by that name is created. : 
0678 FORMAL PARAMETERS: 
5 th NAME Pointer to a string containing the name of the buffer. F 
O67? LEN Length of the name string. 
44 BUF _ADDR Address of a fullword to receive the TBCB address. : 
sed NEW Address of a flag to be set if the buffer was newly created. ; 


ee et tt ee ee ee 
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| 
| 
if found, then the address of the TBCB is returned. If the buffer is not 
| 
| 


0690 

4 ROUTINE VALUE: 
0698 Returns zero if an attempt to create a new buffer failed, one otherwise. 
0695 SIDE EFFECTS: 
O69? May create a new buffer and Link it onto the buffer List. 
5344 <= 
iat BEGIN 
070 

70 EXTERNAL ROUTINE 

¢ EDTSSALO_HEAP; 
EXTERNA 


R 

EDT$$A_BUF _LST : REF TBCB BLOCK, ! Pointer to first buffer in Line. 
EDTS$L_LNO_ZERO : LN_BLOCR; ! Clear Line number 

L 
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LOCA 
EW BUF : REF TBCB_BLOCK; 
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EDTISUGBUFFER § EDTSUGBUFFER - get a buffer pointer 18+ $ep-1984 : VAX-11 Bliss-32 V4.0-7 | EDT 
Bidets EDTS$CET T_BUFPT TR® = get a buffer pointer 14-Sep-1 1382 95: 99:98 DISKSVMSMASTER: cto i sre UGBUFFER.BLI; A (3) v04 
: 146 214 2 { Start with the head of the text buffer List. | 
; 146 16 " NEW_BUF = .EDTSSA_BUF_LST; : 
3s 14 71 '¢ 3 
; 148 a i Now Link our way through the List until we either find a matching | ; 
; 14 7) : mame or hit the end of the List. : 
: 4a i ; 
: ; , : WHILE (.NEW_BUF NEQ 0) DO | ; 
: 128 4 ¢ IF CHSEQL (.LEN, .NAME, .NEW_BUF CTBCB_NAME_LENJ, NEW_BUF CTBCB_NAME)) | ; 
: 136 : $ EXITLOOP : 
: 158 728 NEW_BUF = .NEW_BUF CTBCB_NEXT_BUF); : 
Be, 3? 9 3 
: 160 730 IF (.NEW_BUF EQL 0) : 
; 161 8 1 $ 
5 166 ¢ , BEGIN : 
: 164 $7 4 i Well, we didn't find it. Better create a new one. . 
Gd Phe : 
; 169 O38 IF ( NOT EDTSSALO_HEAP (ZREF (TBCB_SIZE + .LEN), NEW_BUF)) THEN RETURN (0); : 
; 169 0739 NEW_BUF CTBCB_NAME_LEN] = .LEN; ; 
; 170 0740 '¢ 3 
3 1) ares Move the name into the newly created text buffer. ‘ 
; 178 Ore§ EDTSSCPY_MEM (.LEN, .NAME, NEW BUF CTBCB_NAME)); 2 
; 175 0745 i And append it to the front of the buffer List. : 
: 177 Bye : NEW_BUF CTBCB_NEXT_BUF] = .EDTS$A_BUF _LST; ; 
; 173 Bree NEW_BUF CTBCB_PREV_BUFJ = 0; : 
; 10 0790 3 IF (.EDTS$A_BUF_LST NEQ 0) THEN EDTSS$A_BUF_LST CTBCB_PREV_BUF] = .NEW_BUF; ; 
; 182 0738 : A EDTSSA_BUF_LST = .BUF_ADDR = .NEW_BUF; ; 
: 4 O754 Initialize the other fields in the TBCB. 2 
: 186 0736 ; NEW_BUF TBCB_ LINE ghdoR] = AL ! Pointer to current Line. ; 
: 187 bre NEW” BUF 13h Current bucket number. : 
: 1 758 MOVELINE (EDS L Lang) } tnd. Phew BUF crece. CUR_LINJ); ' Current tine number. 3 
: «4189 0759 NEW_BUF POS) = 0; T The character position within the Line | : 
; 190 0760 NEW_BUF TBE F TaST BUKT) = 0; i fires bucket number. 3 
; 191 0761 NEW TBCB LAST BukT) = 0; i Last pyce t number - 
: 13e 76 MOVELINE (EDTS$L_LAO_ZERO, NEW_BUF TBCB. INP LINED)" f ; Number of Last input Line. : 
3 19 76 MOVELINE (EDTSS$L_LNO iat NEW_BU TBCBY LINE TTbUNT ' Count of Lines in buffer. g 
7 194 764 NEW_BUF CTBCB_CHAR_COUNT) = 0; T Count of chars in buffer. ; 
; «(195 765 NEW" TBCB_INPUT_RAB) = 0; i Pointer to input RAB. : 
: 196 766 NEW-BUF CTBCB-IS_MAT) = 0; : 
; 19 767 -NEQ = 1; 3 
; 198 76 END 3 
; 199 7 3 
Py 200 07 0 . EW beaad 0; Ps 


| m1 
EDTSUGBUFFER § EDTSUGBUFFER - a buffer pointer 16-Sep-1984 02:00: VAX-11 Bliss-32 V4.0-74 P 1! 
tees EDTSSCET. BUFPTRo* = get a buffer pointer 12-808 -1 3b 95:90:48 DIEKSUMGHASTERSCEDT SRCTUGBUFFER.BLICt@ (33 ve 
: $0) Orr ;BUF ADDR = .NEW.BUF 
: 20 ae RETURN peel = : 
: 206 0774 END; ! of routine EDTS$GET_BUFPTR ; 
-TITLE EDTSUGBUFFER EDTSUGBUFFER - get a buffer pointe ; 
.IDENT \V04-000\ ; 
.EXTRN EDTSSALO_HEAP, EDT$S$A_BUF_LST : 
-EXTRN EDTSSL_LRO_ZERO : 
.PSECT _EDTSCODE,NOWRT, SHR, PIC,2 : 
O1FC 00000 ENTRY EDISSGET BUFPTR, Save R2,R3,R4,R5,R6,R7,R8 ; 0659 ’ 
58 000000006 00 9€ 9000¢ MOVAB EDT$$A_BOF ; : 
57 000000006 00 9€ 0000 MOV EDTS$L—LNO- bak. R7 : ; 
SE 08 C2 0001 SUBL p~ : 
06 AE 68 DO 0001 MOVL EDTS$A_BUF_LST, NEW_BUF + 0716 
54 04 AE 00 00017 1$: MOVL NE , RS : 0722 
16 13 00018 BEQL : : 
50 3¢ AG 9A 0001D MOVZBL 44(R4), RO + 0724 
50 00 04 BC 8 AC 2D 00021 CMPCS LEN, aNAME, #0, RO, 45(R4) : 
2D AG 00028 F 
07 13 O002A BEQL 2s F 
04 AE 26 As DO 0002C MOVL 8(R4), NEW_BUF + 0728 
E4 11 00031 BRB 1$ : 0724 
04 AE D5 90033 2s: TSTL § NEW_BUF ; 0730 
65 12 0036 BNEQ 4$ ; 
04 AE 9F 00038 PUSHAB NEW_BUF 3 0737 
04 AE 08 AC 20 C1 Fe ADDL3 #45, LEN, 4(SP) j 
04 AE 9F 00041 PUSHAB ; 
000000006 00 08 FB 00044 CALLS #2, EDTSS$ALO_HEAP ; 
5B E 00048 BLBC ~—_—«RO, ; 
56 04 AE DO 0004 MOVL § NEW_BUF, R6 + 0739 
2c 6 08 AC 30 0005 MOVB LEN; 44(R6) F 
2D A6 04 BC 08 AC 2 B02 MovCc3 LEN, @NAME, 45(R6) 3; 0743 
50 68 DO 0005E MOVL EDT$$A_BUF_LST, RO : 0747 
26 «Ab 50 00 00061 MOVL R6)~ ; 
22 AB D4 00065 CLRL  34(R6) : 0748 
50 05 00068 TSTL RO : 0750 
04 13 O006A BEQL 3$ : 
32 6 D 006¢ MOVL 6, 34(R0) ; 
C BC 6 D 0 3$: MOVL R6, F_ADDR : 0752 
6 DO 00074 - MOVE 6 PBT SSA “BUF _LST ; : Rk 
66 D4 00077 CLRL (R6) : 0756 
04 A6 Be 0079 CLRW 4(R6) ; 0757 
06 Ab 67 06 28 0007C¢ MOVC3 as EDTS$L_LNO_ZERO, 6(R6) : 0758 : 
o¢ A6 D4 00081 CLRL =: 12 (R6) : 0759 : 
10 A6 B4 000 CLRW «16 (R6) : 0761 
12 A6 67 6 8 0087 MOVC a6, EDTS$L_LNO_ZERO, 18(R6) : 0766 
18 Ab 67 6 8C MOVCS #6, EDTS$LLNO-ZERO, 24(R6) > 076 
1E A6 04 00091 CLRL  30¢R6) ; 0764 
2A «AB BS 00094 CLRW 42(R6) > 0765 
10 BC 0 DO 00097 MOVL #1, @NEW : 0767 
3 11 00098 BRB 5$ : 0730 
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; Routine Size: 
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172 bytes, Routine Base: 


0775 1 
0776 1 !<BLF/PAGE> 


pointer 
er pointer 


9 eB 
a. 
50 
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3: 


CLRL 
MOVL 
MOVL 
RET 
CLRL 
RET 


NTEKSUMGMASTERSCEDT SRCSUGBUFFER-BLIG;?” (38 


new Bu @BUF _ADDR 


RO 
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PSECT SUMMARY 
Name Bytes Attributes 
-EDTSCODE 172 WNOVEC.NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
Library Statistics 
cosssees §yabel§ cocceeee Pages Processing 
File Total Loaded Percent Mapped Time 
_$255$0U :CEDT.SRCJEDT.L32;1 377 30 7 40 00:00.2 
55$0uU 8: EDT. SRCIPSECTS.L32;1 2 1 50 7 00:00.1 
COMMAND QUALIFIERS 
2 5 mina ate elittenaethmaatectcxtanien tama rmnatnstctantcchtite MSRC$: UGBUFFER.BLI/UPDATE=(ENHS$: UGBU 
Size: 172 code + 0 data bytes 
Run Time: 714.4 
Elapsed Time: Osi! 
Lines/CPU Min: 45 
Lexemes/CPU-Min: 11595 


Memory Used: 102 pages 
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